﻿Public Class Pedido
    Dim _CIA, _SUC, _TDOC As String
    Dim _DCICOD, _CODCLI, _CODVEN, _MONCOD, _TDOCOD, _CNVCOD As String
    Dim _FOPCOD, _AGECOD, _DCIOBS, _DCIOBSCRE, _DCIDIRENT As String
    Dim _DCIEST As String, _CLENCOD As String
    Dim _DCIFECHA, _DCIULTMOD As String
    Dim _DCITOTBRU, _DCITOTDESCTO, _DCITOTNET, _DCIIGV, _DCITOT As Decimal
    Dim _DCIOFIC, _DCIMUES, _PERCONF, _PERREC As String
    Dim _ATSCOD, _LISCOD As String
    Dim _BANCOD, _NRODEP, _RAZCOT As String
    Dim _CLIMAR As String
    Dim _FECENT As String
    Dim _USUCOD As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tdo As String, ByVal DCIcod As String,
            ByVal clicod As String, ByVal vencod As String, moncod As String, ByVal tdocod As String,
            ByVal cnvcod As String, ByVal fopcod As String, ByVal agecod As String, ByVal DCItotbru As Decimal,
            ByVal DCItotdescto As Decimal, ByVal DCItotnet As Decimal, ByVal DCIigv As Decimal,
            ByVal DCItot As Decimal, ByVal DCIobs As String, ByVal DCIobscre As String, ByVal DCIdirent As String,
            ByVal DCIest As String, clencod As String, fecent As String, ofic As String,
            mues As String, persCOnf As String, persRec As String, atscod As String,
            bancod As String, nrodep As String, liscod As String, razcot As String, dcifec As String, climar As String, usucod As String)
        Me._CIA = cia
        Me._SUC = suc
        Me._TDOC = tdo
        Me._DCICOD = DCIcod
        Me._CODCLI = clicod
        Me._CODVEN = vencod
        Me._MONCOD = moncod
        Me._TDOCOD = tdocod
        Me._CNVCOD = cnvcod
        Me._FOPCOD = fopcod
        Me._AGECOD = agecod
        Me._DCITOTBRU = DCItotbru
        Me._DCITOTDESCTO = DCItotdescto
        Me._DCITOTNET = DCItotnet
        Me._DCIIGV = DCIigv
        Me._DCITOT = DCItot
        Me._DCIOBS = DCIobs
        Me._DCIOBSCRE = DCIobscre
        Me._DCIDIRENT = DCIdirent
        Me._DCIEST = DCIest
        Me._CLENCOD = clencod
        Me._FECENT = fecent
        Me._DCIOFIC = ofic
        Me._DCIMUES = mues
        Me._PERCONF = persCOnf
        Me._PERREC = persRec
        Me._ATSCOD = atscod
        Me._BANCOD = bancod
        Me._NRODEP = nrodep
        Me._LISCOD = liscod
        Me._RAZCOT = razcot
        Me._DCIFECHA = dcifec
        Me._CLIMAR = climar
        Me._USUCOD = usucod
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOC
        End Get
        Set(value As String)
            _TDOC = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _DCICOD
        End Get
        Set(ByVal value As String)
            _DCICOD = value
        End Set
    End Property

    Public Property DCI_Fecha() As Date
        Get
            Return _DCIFECHA
        End Get
        Set(ByVal value As Date)
            _DCIFECHA = value
        End Set
    End Property

    Public Property CLI_Codigo() As String
        Get
            Return _CODCLI
        End Get
        Set(ByVal value As String)
            _CODCLI = value
        End Set
    End Property

    Public Property VEN_Codigo() As String
        Get
            Return _CODVEN
        End Get
        Set(ByVal value As String)
            _CODVEN = value
        End Set
    End Property

    Public Property MON_Codigo() As String
        Get
            Return _MONCOD
        End Get
        Set(value As String)
            _MONCOD = value
        End Set
    End Property

    Public Property TDO_Codigo() As String
        Get
            Return _TDOCOD
        End Get
        Set(ByVal value As String)
            _TDOCOD = value
        End Set
    End Property

    Public Property CNV_Codigo() As String
        Get
            Return _CNVCOD
        End Get
        Set(ByVal value As String)
            _CNVCOD = value
        End Set
    End Property

    Public Property FOP_Codigo() As String
        Get
            Return _FOPCOD
        End Get
        Set(ByVal value As String)
            _FOPCOD = value
        End Set
    End Property

    Public Property AGE_Codigo() As String
        Get
            Return _AGECOD
        End Get
        Set(ByVal value As String)
            _AGECOD = value
        End Set
    End Property

    Public Property DCI_TotalBruto() As Decimal
        Get
            Return _DCITOTBRU
        End Get
        Set(ByVal value As Decimal)
            _DCITOTBRU = value
        End Set
    End Property

    Public Property DCI_TotaDsct() As Decimal
        Get
            Return _DCITOTDESCTO
        End Get
        Set(ByVal value As Decimal)
            _DCITOTDESCTO = value
        End Set
    End Property

    Public Property DCI_TotalNeto() As Decimal
        Get
            Return _DCITOTNET
        End Get
        Set(ByVal value As Decimal)
            _DCITOTNET = value
        End Set
    End Property

    Public Property DCI_IGV() As Decimal
        Get
            Return _DCIIGV
        End Get
        Set(ByVal value As Decimal)
            _DCIIGV = value
        End Set
    End Property

    Public Property DCI_Total() As Decimal
        Get
            Return _DCITOT
        End Get
        Set(ByVal value As Decimal)
            _DCITOT = value
        End Set
    End Property

    Public Property DCI_UltModificacion() As String
        Get
            Return _DCIULTMOD
        End Get
        Set(ByVal value As String)
            _DCIULTMOD = value
        End Set
    End Property

    Public Property DCI_Observaciones() As String
        Get
            Return _DCIOBS
        End Get
        Set(ByVal value As String)
            _DCIOBS = value
        End Set
    End Property

    Public Property DCI_OBSCredito() As String
        Get
            Return _DCIOBSCRE
        End Get
        Set(ByVal value As String)
            _DCIOBSCRE = value
        End Set
    End Property

    Public Property DCI_DireccionEntrega() As String
        Get
            Return _DCIDIRENT
        End Get
        Set(ByVal value As String)
            _DCIDIRENT = value
        End Set
    End Property

    Public Property DCI_Estado() As String
        Get
            Return _DCIEST
        End Get
        Set(ByVal value As String)
            _DCIEST = value
        End Set
    End Property

    Public Property CLEN_Codigo() As String
        Get
            Return _CLENCOD
        End Get
        Set(value As String)
            _CLENCOD = value
        End Set
    End Property

    Public Property FEC_Entrega() As String
        Get
            Return _FECENT
        End Get
        Set(value As String)
            _FECENT = value
        End Set
    End Property

    Public Property DCI_Oficina() As String
        Get
            Return _DCIOFIC
        End Get
        Set(value As String)
            _DCIOFIC = value
        End Set
    End Property

    Public Property DCI_Muestra() As String
        Get
            Return _DCIMUES
        End Get
        Set(value As String)
            _DCIMUES = value
        End Set
    End Property

    Public Property PERS_Recibe() As String
        Get
            Return _PERREC
        End Get
        Set(value As String)
            _PERREC = value
        End Set
    End Property

    Public Property PERS_Confirma() As String
        Get
            Return _PERCONF
        End Get
        Set(value As String)
            _PERCONF = value
        End Set
    End Property

    Public Property ATS_Codigo() As String
        Get
            Return _ATSCOD
        End Get
        Set(value As String)
            _ATSCOD = value
        End Set
    End Property

    Public Property BAN_Codigo() As String
        Get
            Return _BANCOD
        End Get
        Set(value As String)
            _BANCOD = value
        End Set
    End Property

    Public Property NRO_Deposito() As String
        Get
            Return _NRODEP
        End Get
        Set(value As String)
            _NRODEP = value
        End Set
    End Property

    Public Property LIS_Codigo() As String
        Get
            Return _LISCOD
        End Get
        Set(value As String)
            _LISCOD = value
        End Set
    End Property

    Public Property DCI_RazonCot() As String
        Get
            Return _RAZCOT
        End Get
        Set(value As String)
            _RAZCOT = value
        End Set
    End Property

    Public Property CLI_Marca() As String
        Get
            Return _CLIMAR
        End Get
        Set(value As String)
            _CLIMAR = value
        End Set
    End Property

    Public Property USU_Codigo() As String
        Get
            Return _USUCOD
        End Get
        Set(value As String)
            _USUCOD = value
        End Set
    End Property

End Class
